﻿Public Class frmDoiMatKhau
    Private connect As ConnectDB
    Private sqlstr As String

    Private Sub frmDoiMatKhau_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TextBoxX1.Text = frmDangNhap.LoginPassND.ToString
    End Sub

    Private Sub btnHuy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHuy.Click
        txtMatKhauCu.Text = ""
        txtMatKhauMoi.Text = ""
        txtReMatKhauMoi.Text = ""
    End Sub

    Private Sub btnDongY_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDongY.Click
        If txtMatKhauCu.Text = "" Then
            MsgBox("Mật khẩu cũ không được bỏ trống!", MsgBoxStyle.Exclamation, "Thông báo lỗi")
            txtMatKhauCu.Focus()
            Exit Sub
        End If
        If txtMatKhauMoi.Text = "" Then
            MsgBox("Mật khẩu mới không được bỏ trống!", MsgBoxStyle.Exclamation, "Thông báo lỗi")
            txtMatKhauMoi.Focus()
            Exit Sub
        End If
        If txtReMatKhauMoi.Text = "" Then
            MsgBox("Phải nhập lại mật khẩu mới!", MsgBoxStyle.Exclamation, "Thông báo lỗi")
            txtReMatKhauMoi.Focus()
            Exit Sub
        End If
        If txtReMatKhauMoi.Text <> txtMatKhauMoi.Text Then
            MsgBox("Mật khẩu nhập lại không giống!", MsgBoxStyle.Exclamation, "Thông báo lỗi")
            txtReMatKhauMoi.Focus()
            Exit Sub
        End If
        If txtMatKhauCu.Text <> frmDangNhap.LoginPassND.ToString Then
            MsgBox("Mật khẩu cũ đã nhập sai!", MsgBoxStyle.Exclamation, "Thông báo lỗi")
            txtMatKhauCu.Focus()
            Exit Sub
        End If

        DoiMatKhau(txtReMatKhauMoi.Text)

    End Sub

    Public Sub DoiMatKhau(ByVal pass As String)
        Try
            connect = New ConnectDB()
            sqlstr = "UPDATE NHANVIEN SET PassVN   = '" & pass & _
                                    "' WHERE IDNV  = '" & frmDangNhap.LoginTenND.ToString & "'"
            connect.Execute(sqlstr)
            MessageBox.Show("Đổi mật khẩu thành công.", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Information)
            txtMatKhauCu.Text = ""
            txtMatKhauMoi.Text = ""
            txtReMatKhauMoi.Text = ""
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Lỗi hệ thống", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        End Try
    End Sub

    
End Class